home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 January
/
Ahoy_Magazine_85-01_1985_Double_L.d64
/
rupert #1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
942b
|
38 lines
0 rem << rr13-4 >>
1 rem =-= sprite maker =-=
10 input"store in which memory block (192..199)";bk
20 mem=64*bk
30 for row=0 to 20
40 read a$
50 for byte=0 to 2 : ttl=0
60 for bit=7 to 0 step -1
70 if mid$(a$,8+8*byte-bit,1)="."then 90
80 ttl=ttl+2^bit
90 next bit
100 print ttl,
110 poke mem,ttl : mem=mem+1
120 next byte
130 print
140 next row
1001 data........................
1002 data...................**...
1003 data...................***..
1004 data....................**..
1005 data........................
1006 data...................*...*
1007 data....................*...
1008 data.................*..*...
1009 data..................***...
1010 data..............**....*...
1011 data.............*..*...*...
1012 data............*....*..*...
1013 data....*........*..*..**...
1014 data***..*...**...**........
1015 data****..*.*..*............
1016 data*..**..*....*...........
1017 data*...**..*...............
1018 data.*.**.*..*..*...........
1019 data..**...**..*............
1020 data...*....***.............
1021 data....*...................